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SUBSCRIPTION RATES! 


USA/Canada $9.00 for a volume of 6 issues* overseas $12.50. Make checks 
Payable in US dollars to "SYM Users’ Grourys" F. QO. Box 3157 Chicoy 


CA 95927» Telerhone (916) 895-8751. 
FLOPFY DISK OPERATING SYSTEM FOR THE SYM 


We srey as you should know by this timer very much impressed with the 
rFotential of SYM» but realize that not enoush software exists (that 

is why we rublish SYM-PHYSIS), It is fairly simrle from the hardware 
standroint to add a disk controller and @ rair of florries to the SYM» 
(it really was!), but sood Disk Orereting Systems (0S) ere not easy ta 
come by. We watch the advertisements very carefully: and when we hear 
or see that a vendor announces the imminent availability of @ SYM Fro~ 
ducty we write and/or rhone to bests buy, borrow or maybe even steal a 
rPre-release or rrototyure versions offering to testy evaluate, shake-down 
or otherwise helr to debug the rroduct and its documentetions rrior to 
official release. We did this with Bob llenison on the 2KSAr Syunertek 
Systems Corroretion on RAE~1ly Carl Moser on several software rackases 
we hore to begin to sell soonr etc, We have longs been aware of Hudson 
igitel Electronics File Oriented Disk System (FOUS) for KIM Syustemss 
and had heard only good things ebout it. FODS may be used with either 
size florry disk» so you can start out with the 5 1/4 inch disks and 
ursrade to the 8 inch system with no conversion rroblems. Im facts by 
using two disk controllers im the system vou can retain both sets of 


disks on-line. How’s that for urdrading without obsolescence? 


Dick Grabowsky: of HIE was kind enoush to rrovide us with advance cories 
of the SYM Version of FODS (including source code!) and we have made 


the mods necessary to eliminate conflicts in vase zero and elsewhere 
between MON» BAS» RAEr anc FONDS. Each language will be able to call any 


other in @ manner natural to that languaser and the calls will include 
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all ratches to BAS and MON beings eublished in SYM~FHYSIS. We also 

have susdested to Sunertek Systems Corroration that they consider the 
use of FOLIS in their disk sustem planning because it exists and is very 
versatile. We are vers Pleased with FOS, and are using ity together 
with RAE to rrepare this issue. The modifications are nearly completes 
and the system works like a charm. We will keer you rosted on the rro~ 
gress of the FOUS MODS! Contact Hudson Digital Electronics, Box 120, 
Allamuchys NJ 07820 for additional information (including rrice!). We 


Flan to make available SYM software on FOILS compatible Mini-Florries 
in the future. 


RAE NOTES CUPTATING SERVICE) 


We have been using RAE-1 for many months mows since longs before its 
official release in ROM: and heave gotten to know it intimately. While 
we do not have access to the source codes we have disassembled it and 
studied its workingss and its authorr Carl Mosery has answered all of 
our srecific guestions in details including the rases zero and one mars. 


There are several instructions and features of RAE-1 which ere not de~ 
scribed in the Synertek Reference Manuals including erinter vectors and 
disk vectors and commands. We are also adding patches to RAEy using its 
RUN commandy to change baud rates and to switch between the RS-232 and 
the 20 mA rorts as required, and to add text formatting carabilities. We 
had planned to describe these features im SYM-FHYSIS on a serial basiss 
but soon realized that these "“urdates" would occurs too large a Froror- 
tion of the newsletter if written im the detailed manner they deservedy 
and therefore had to be distributed as serarate items. The urdates 

will therefore be rublished serarately as “RAE NOTES", 


We will be mailings cories of RAE NOTES» as they are rrerared, to all 


who Purchase their RAE-1/2 from the Users’ Grour. RAE NOTES will he 
available to a]11 others on @ subscription basis. See back rage. 


RAE NOTES #1 will ferovide a handy “Reference Card's and describe how to 
find the last line number in the current filer how to adjust the label 
lenath to fit a 40-column CRT or printers and how to set HA S to wut the 
Fase numbers in the right Place. RAE NOTES #2 will rrovide detailed 
Fades 0 and 1 marsy including the disk and hard cory rrinting vectors. 
These issues are being rrerared for Frinting mows RAE NOTES #3 will 
Provide detailed information on RAE-to-Disk linkage. We hore that by 
RAE NOTES #4 some of our readers will be contributing results based on 
their own disassembly of RAE-1i» to locate more of its user available 
subroutinesy in order that RAE can be ratched,s in the same way that BAS- 
IC is patchabler to further enhance its carabilites. 


FERTODICAL RECOMMENDATIONS 


The 6502 USER NOTES ere no more! Publication ended with Volume 3, Issue 
5 (#17). We have not as vet received our final issue. All subscribers 
will receive a cory of Issue #2 (January/February, 1980) of COMPUTE. in 
Place of #18. Eric Rehnke will write the section "The Sinsgle-Board 
6502"» for COMPUTE. All back issues of the 6502 USER NOTES may be 
ordered from COMPUTE. COMFUTE. is @ new magazine covering the entire 


6502 based computer community, The address is 900 Spring Garden Ste» 
Greensboros NC 27403. 


Issue #21 of Micro (February 1980) has an article by Robert A. Peck de- 
scribing an inexrensive way to add an ASCII keyboard to SYM-1l: and rre- 
sents the reauired softwere, 


Issue #2 of COMFUTE. (Jan/Feb.1980) has an article by Jim Butterfield 
which sives BASIC rase 0 mars for KIM» SYM» AIMy PET: and Arrle. 
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ROOK RECOMMENDATIONS 


Add to the book recommendations rrinted in the Introductory Issue the 
followings: 


Leventhal, Lance! ‘6502 Assembly Languege Prosgrammins*»s Osborne/McGraw— 
Hill Book Companys 1979. 


We think so highly of this book that we feel every SYM owner should own 
acory., It contains mumerous useful rrosrams which you can adart imme- 
diately for your own rurroses. See back rase of this issue for ordering 
information. 


Feck, Robert! "SYM-1 Hardware Theory of Orerations Manual", 1979, 


This is the second of three books he is writings for SYM-1., His third,r 
"SYM-1 Monitor Theory of Orerations Manual" is Flanned for release in 
March 1980. His first was the “Arrendix to the First Kook of KIM for 
the SYM"» listed in the Introductory Issue. The rrice for the Hardware 
Theory Manual is $6.00 U.S. delivered in the U.S. or Canada. Add $1.25 
U.S. for overseas delivers. The book is about 40 rasesy includes a SYM- 
1 Schematicy and lists every sismal available at each Fin om the board. 
For a real understanding of how your SYM hardware is rut tosethery this 
book will prove heleful. Order directly from Robert A. Pecks Fe O+ Box 
2231, Sunmyvaler CA 94087. 


SUPER BASIC 


Several subscriberss including Sean McKenney Gary Humrhreys and Jack. 
Browns working from their knowledge of Arrlesofts KIM» and/or FET BRASICys 
have contributed articles on modifivins SYM BASIC. Jack Browns in rar- 
ticulary has submitted three extensively commented and well documented 
source codes» which are much too longs to rublish in their entirety. 

One of Jack’s programs is a fantastically fast, two-rass» four Fara- 
meter renumbering rFrosgram, which takes advantage of the fact that each 
BASIC line is interrreted in a self-modifyins section of code in Fase Or 
and eatches in at that section. Am uncommented version of that Program 
is Published here, 


His second rrogram is @ terminal control patch which rermits easy ed- 
iting of BASIC lines: either currents or Freviously entered, by Fro- 
viding a set of cursor control commands. To auote Jacky and we asree 
with himy "With the editing carability of SUPER TCF and the versatility 
of the cursor extension commands SYM-1 mow exceeds both Arrle II and FET 
in editing and cursor control carability." 


His third rrosram rrovides for saving and loadins both BASIC and 6502 
files with namesy and prints messases like SEARCHING FOR DATA, FOUNT! 
DATA, LOADING DATAy and SAVING DATA? where arrrorriate. This Frosram 
is even more rowerful than the PET eauivalent. His second and third 
Programs are patched to BASIC by trarring ell carriage return outruts 
to see if they were rromrted by detection of an errors ands if sor 
branching to the watch. This arrroach is much faster than the method 
used in the renumbering rrosgramy since it occurs only during outreut 
commands, when BASIC is beind slowed down by the terminal outrut rate 
anyway. 


Since these rrograms are so usefuly too long to rublish im SYM~FHYSIS» 
and reauire the full documentation and commenting for complete under- 
standings Jack has agreed to have us distribute them at a cost of $,.30 
rer page. This modest charse will ray for rrinting and mailing costsy 
and dive Jack a nominal royalty for his efforts. See back rase for 
ordering details. In the futurer we will offer the documentation and 
complete source rrosgrams on cassette in RAE-1 format, 
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ULTRA-RENUMBER FOR BAS~1 

Here is am uncommented (to save srace) source code version of Jack. 
Brown’s ULTRA-RENUMBER, So that it may be used im a 4K SYM it is locat~ 
ed at OCOO-OFFF. Note that OFOO-OFFF is reserved as a working buffer 
for the line number tables. To use this rrogram, enter BASIC with «J O» 
answer MEMORY SIZE? with 30729 exit to MON with RST. Fatch 4C S40E at 
OODD-OOUF, and reenter BASIC with .G 0. Whenever you wish to renumber 2 
rrogram use the command #LIST with ur to four rarameters (decimal) ser- 
srated by commasy @+S+s 


#LIST base, ster, sliner hline (CR) 


where base is the starting line numbers ster is the increments and sline 
and hline are the (current) first and last line numbers of the segment 
of the BASIC erosram you wish to renumber, If the parameters are omit~- 
tedy the default values are 100» 10» current lowest line numbers current 
highest line number. ULTRA-RENUMBER will automatically take care of 
opening ur (or closing ur) spaces in case the mew line mumber has more 
or fewer digits than the old line mumber! If» as sometimes harrens, you 
requested a transfer to a non-existent line mumbery this will be flassed 
by the insertion of 65535. I think you will be so impressed with the 
sreed and convenience of ULTRA-RENUMBER that you will want to relocate 
it together with the Tris Petchr and automate the ratch at OODL in the 
same way as the patch for Tris Fatch at 00C4 was automated in the TCF 
article in the Introductory Issue rage 0-17. 


OCOO 20 [2 00 BO 40 20 FS C7sCK OD00 20 45 OF LTO OA AO Ci A9257 
0C08 AS 1C 85 SA AS 1D 85 SByOL O08 FE 20 54 CH 4C 23 C3 20784 
OC10 20 D2 00 CF 2C DO 43 20727 0010 45 O£ 20 45 O£ 20 45 OE, BL 
0C18 CC 00 20 FS C7 AS 1C 85715 OL18 AA FO E2 A2 04 DI 4F 0Er19 
0C20 SC AS iD 85 SD 20 2 00707 on20 FO 05 CA DO FS FO EE ASs23 
0C28 C9 2C DO 36 20 CC 00 20,0E 0128 D3 48 AS D4 48 20 CC OOrER 
0C30 F5 C7 AS 1C 85 SE AS 11,30 O30 BO E6 20 FS C7 AS 1D C5yE4 
0C38 85 5F 20 2 00 C9 2C TlOrCR 0038 SF 90 4C FO 02 BO 06 AS? 6C 
0C40 28 20 CC 00 20 FS C7 A540 0040 1€ C5 5E 90 42 AS if C5704 
0C48 1C 85 60 AS 1D 85 61 4C,55 0148 61 FO 04 BO 3A 90 08 AS?r80 
OC5O 6F OC AY 64 85 SA AP 00765 ODSO 1€ C5 60 FO 02 BO 30 20%B3 
OC58 85 5B A OA 85 SC AP 00/82 O58 92 Of 68 85 D4 68 85 N3rD3 
0C460 85 SD A2 01 86 SE CA 86/38 0160 AO 00 AZ 00 BL O01 01 FOrC4 
0C68 SF A9 FF 85 60 85 61 APrBS OL68 OF 48 20 CC 00 90 03 20%BA 
0C70 FE 85 79 A? OF 85 7A AMr1i 0170 C9 OL 68 91 03 EB DO EC,00 
0C78 FC 85 58 AY OF 85 59 A5»24 0178 20 CC 00 BO OF 20 EB OLrC3 
0C80 7K 85 77 AS 7C 85 78 20,19 O80 20 D2 00 90 FB BO OS 68r5A 
OC8B 19 OE AO 03 B1 77 91 79905 OD88 68 20 D2 00 C9 2C FO 97730 
0C90 88 B1 77 91 79 AO O03 BivES OD90 TO 86 20 19 OE AS 58 B5,4F 
0C98 77 CS SF FO 04 90 42 BOsF4 On98 79 AS 59 85 7A AO OS Hisik 
OCAO 07 88 B1 77 CS SE 90 39797 ODAO 79 C5 1D FO 15 C9 FF L0r13 
OCA8 AO 03 B1 77 CS 61 FO 0477C ODA8 18 85 B2 85 Bi AS B1 85973 
OCKO BO 1B 90 09 88 B1 77 C5955 ODEO B3 AZ 90 38 20 FF LP 40,14 
OCB8 60 FO 02 BO 10 AO 03 B9rC3 OURS 9A DE 88 B1 79 CS 10 FOrcc 
OCCO AF 00 91 77 8B BP AF 0076A ODCO EC 20 22 OF 20 3B OE D0,41 
OCC8 91 77 20 22 OE AO 01 B1y14 ONC8 D4 20 08 OF AO 00 Bi 77713 
OCHO 77 FO 18 20 3E OF AA 8872E ODN0 C8 91 77 20 30 OE 0 0819 
OC8 Bi 77 85 77 86 78 4C BAr26 ODD8 Eé 70 DO 02 E&6 7E 88 6079A 
OCEO OC AS 79 85 58 AS 7A B5rD1 ODEO A4 77 DO 02 Cé 78 C6 77702 
OCE8 59 DO E2 A? FF C8 91 79956 OLE8 4C CC OD 20 08 OE AO O1rFE 
OCFO C8 91 79 AS 7B 85 D3 A5s45 OLDFO B1 79 88 91 79 20 30 OEF+18 
OCF8 7C 85 14 LO 03 20 45 OFr460 ODF8 FO 05 20 3E OF DO EF A4,IC 
7560 740 


Hex Lume continues on bottom of Page 8- Souce Code Pade 5 
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ASSEMBLE LIST OC32- A5 1C 0620 LOA xXLINNUM OCB2- 90 09 1250 BCC COFYR 
OC34- 85 SE 0630 STA *SLINE OCR4- 88 1260 CHKHLO HEY 
0010 s#ULTRA-RENUMBER OC36- AS in 0640 LOA xLINNUM+1 OCES- B1 77 1270 LIA CINIIEXA) rY 
0020 $THE ULTIMATE SYM~1 OC38- 85 SF 0650 STA XSLINE+1 OCR7- C5 60 1280 CMP XHLINE 
0030 ;BASIC RENUMBER PROGRAM OCZA~ 20 12 00 0660 JSR CHRGOT OCE9- FO 02 1290 BEQ COFYR 
0040 $ OC3R- C9 2C 0670 CMF #’» OCRBR- BO 10 1300 BCS COFPYN 
0050 $COFYRIGHT 1979 RY OC3F- DO 28 0680 BNE DHLINE OCED- Ad 03 1310 COFYR LOY #$03 
0060 #J, We BROWN OC41- 20 CC 00 0690 JSR CHRGET OCBF- B9 AF 00 1320 LIA FACTO-3rY 
0070 ALL RIGHTS RESERVED 0C44- 20 FS C7 0700 JSR LINGET OCC2- 91 77 4330 STA CINDEXA)sY 
0080 ; 0C47- AS iC 0710 LUA *xLINNUM OCC4- 88 1340 DEY 
00970 +BA $0C00 OC49- 85 60 0720 STA *HLINE OCC5- BY AF 0O 1350 LIA FACTO-3,Y 
0100 -0S OC4B- AS if 0730 LOA &KLINNUM+1 OCCB8- 91 77 1360 STA CINIIEXA) sY 
0110 “MC $5000 OC4I- 85 61 0740 STA *HLINE+1 OCCA- 20 22 OE 1370 JSR ALDSTF 
0120 NWSTRT +E $0058 OC4F- 4C 46F OC 0750 JMF COPY OCCD- AO 01 1380 COFYN LDY #$01 
0130 BEGIN sDE $005A OC52— AY 4 0760 LEFALT LIA #$64 OCCF- B1 77 1390 LIA CINDEXA)sY 
0140 STEF +DE $005C OCS4- 85 SA 0770 STA XBEGIN OCDI- FO 18 1400 REQ COPYE 
0150 SLINE +DE $00S5E OCH6- AP 00 0780 LDA #600 OCD3~- 20 3B OF 1410 JSR BUPXB 
0160 HLINE »DE $0060 OC58- 85 5B 0790 STA XBEGIN+1 OCDSé- AA 1420 TAX 
0170 VARTAB +0E $0071 OCSA- A9 OA 0800 DISTEF LIA #$0A och7- 88 1430 DEY 
0180 FACTO +E $0082 OCSC- 85 5C 0810 STA XSTEF OCLh8- Bi 77 1440 LOA (INDIEXA) sY 
0190 LINNUM +E $001C OCSE- A? 00 0820 LIA #$00 ocnA- 85 77 1450 STA XINIEXA 
0200 TXTTAB +LlE $007B 0C60- 85 SI 0830 STA XSTEP+1 OCDC- 86 78 1460 STX *INDEXAtL 
0210 TXTFTR +DE $003 0C62- A2 O1 0840 DSLINE LOX #601 OCLDE- 4C BA OC 1470 JMF COFYA 
0220 INDIEXA +DE $0077 0C64- 86 SE 0850 STX ¥SLINE OCEi- AS 79 1480 COPYM LDA *INDEXE 
0230 INDEXR +DE $0079 OC46- CA 0840 LEX OCE3- 85 58 1490 STA XNWSTRT 
0240 WORKEF +DI NUM+$0300 0C67- 86 SF 0870 STX *SLINE+1 OCES- A5 7A 1500 LOA *INDEXB+1 
0250 #(RELOCATE WORKBF WHEN OC69- AP FF 0880 DHLINE LDA #$FF OCE7- 85 59 1510 STA XNWSTRT+1 
0260 #RELOCATING PROGRAM) OC6B- 85 60 0890 STA *HLINE OCE9- DO E2 i520 BNE COFYN 
0270 $ OCéI- 85 61 0900 STA ¥HLINE+1 OCEB- A9 FF 1530 COFYE LUA #$FF 
0280 CHRGET +DE $00CC OC6F- A? FE 0710 COPY LIA #WORKEF-2 OCED- €8 1540 INY 
0290 CHRGOT «DE $0002 0c71- 85 79 0920 STA XINIIEXB OCEE- 91 79 1550 STA (CINDEXE) sY 
0300 FIXLNK «DE $0323 0C73- AP OE 0930 LIA #H»WORKBF-2 OCFO- C8 1540 INY 
0310 LINGET “DE $C7F5 0C75- 85 7A 0940 STA ¥*INDEXE+1 OCFI- 91 79 1570 STA CINDEXB) sY 
0320 FLOATC DE SLOFF 0C77- AY FC O?50 LIA #WORKBF~4 OCF3- AS 7H 1580 RENUM LOA XTXTTAB 
0330 FOUT «DE $DB9A 0C79- 85 58 0760 STA X*NWSTRT OCF5- 85 D3 1590 STA XTXTFTR 
0340 MESSUB +DE $0954 OC7B- A? OE 0970 LDA #HyWORKEF—4 OCF7- AS 7C 1600 LUA xKTXTTABH 
0350 3 OC7I- 85 59 0980 STA XNWSTRT+1 OCFE9- 85 D4 1610 STA XTXTFTR+EL 
0360 BREAKIN DE $00L0 OC7F- AS 7B 0990 LDA XTXTTAEB OCEB- DO 03 1620 ENE RENE 
0370 BACK _+DE $00E0 OC81- 85 77 1000 STA X*INDIEXA OCFI- 20 45 OE 1630 RENA JSR GRAE 
0380 ERMESS DE $C25A OC83- AS 7C 1010 LIA XTXTTABTL OL00- 20 45 OF 1640 RENE JSR GRAK 
0390 GVARAL +DE $CE63 Oc85- 85 78 1020 STA XINDEXAtI ODO3- LO 0A 1650 BNE RENC 
0400 § OC87- 20 19 OF 1030 JSR SETFAC ODOS- AO C1 1660 LIY #$Ci 
OCOO- 20 D2 00 0410 NUM JSR CHRGOT OCBA- AO 03 1040 COFYA LOY #$03 OL07- AY FE 1670 LDA #$9E 
0CO3- BO 40 0420 BCS DEFALT OC8C- B1 77 1050 LIA (INDEXA)sY ODO9- 20 54 C9 1680 JSR MESSUB 
OCOS- 20 FS C7 0430 JSR LINGET OCBE- 91 79 1060 STA (INDEXB) sY ODOC- 4C 2% C3 1690 JMF FIXLNK 
0CO8- AS 1C 0440 LDA *LINNUM 0C90- 88 1070 DEY ODOF- 20 45 OE 1700 RENC JSR GRAB 
OCOA- 85 SA 0450 STA X*BEGIN OC91- Bi 77 1080 LIA (CINDEXA)sY ODi2- 20 45 OF 1710 JSR GRAB 
ococ- AS 1D 0460 LDA XLINNUN+1 OC93- 91 79 1090 STA (INIIEXE) sY OD15- 20 45 OE 1720 REND JSR GRAB 
OCOE- 85 SE 0470 STA ¥*BEGIN+1 OC95— AO O03 1100 LDY #03 ODL8- AA 1730 RENE TAX 
OC10O- 20 12 00 0480 JSR CHRGOT OC97- Bi 77 1110 LIA (INDEXA)sY OD19- FO E2 1740 REQ RENA 
OC13- C9 2C 0490 CMF #’y 0C99- CS SF 1120 CMF XSLINE+1 ODLIB- A2 04 1750 LOX #$04 
OC1S~ DO 43 0500 BNE ISTEP OC9R- FO 04 1130 BEQ CHKSLO ODID- DD 4F OE 1760 RENG CMF TOKEN-17X 
OC17- 20 CC 00 0510 JSR CHRGET OC9LI- 90 42 1140 BCC COPYM OD20- FO 05 1770 BEQ RENH 
OC1A- 20 FS C7 0520 JSR LINGET OC9F- BO 07 1150 BCS COPYC OI22- CA 1780 DEX 
OCio- AS 1c 0530 LIA *XLINNUM OCAI- 88 1160 CHKSLO LEY OD23- DO FB 1790 BNE RENG 
OCIF- 85 5C 0540 STA *STEF OCA2= Bi 77 1170 LDA (INIIEXA)sY oOU25- FO EE 1800 REQ REND 
OC21- AS 10 0550 LOA xXLINNUM+1 OCA4—- C5 SE 1180 CMP XSLINE 0D27- AS D3 1810 RENH LUA XTXTFTR 
0C23- 85 Sr 05460 STA XSTEF+1 OCA6—- 90 39 1190 ECC COPYM On29- 48 1820 PHA 
0C25- 20 D2 00 0570 JSR CHRGOT OCAB- AOD O03 1200 COPYC LDY ##03 On2A- A5 D4 1830 LDA XTXTFTR+1 
OC28- C9 2C 0580 CMP #/5 OCAA- B1 77 1210 LDA (INDEXA)sY OD2C- 48 1840 FHA 
OC2A- DO 36 0590 BNE DSLINE OCAC- C5 61 1220 CMF *XHLINE+1 OD2D- 20 CC 00 1850 JSR CHRGET 
OC2C- 20 CC 00 0600 JSR CHRGET OCAE- FO 04 1230 BEQ CHKHLO ONZ0- BO E6 1860 BCS RENE 
OC2F- 20 FS C7 0610 JSR LINGET OCKRO- BO iB 1240 BCS COPYN ON32- 20 F5 C7 1870 JSR LINGET 
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0035- AS 10 1880 LIA *LINNUM+1 ODB4- 20 FF BD 2510 JSR FLOATC OE3S2-— CS 79 3140 CMP XINDEXB 


O37- C5 5F 1890 CMP XSLINE+1 ODB7- 4C 9A DE 2520 JMP OUT OE34- DO 04 3150 ENE CRTS 
OL39- 90 4c 1900 ECC RENF OLRA~ 88 2530 FNC LEY 0E36- A5 78 3160 LUA XINDEXAt1 
OD3B- FO 02 1910 REQ SLOCHK OLBR- Ri 79 25.40 LDA CINDEXE) +¥ OE38- C5 7A 3170 CMF XINDEXE+1 
OLZD- BO 06 1920 ECS RENR ODBI- CS 1C 2550 CMF XKLINNUM OE3A- 60 3180 CRTS RTS 
OD3F- AS 1C 1930 SLOCHK LDA *LINNUM ODBF- FO EC 2560 BEQ FNE OEZB- 20 3E OE 3190 BUPXB JSR BUPXA 
on4i- cS SE 1940 CMF XSLINE ODC1- 20 22 OE 2570 FND JSR ALLSTF OEZE- E6 79 3200 BUFXA INC X*INDEXE 
on43- 90 42 1950 ECC RENF OWC4~ 20 3B OE 2580 JSR BUPXE OE40- 10 02 3210 ENE BRTS 
on4s- AS 10 1960 RENR LDA XLINNUM+1 olc7- Do 14 2590 RNE FNA OE42- ES 7A 3220 INC XINDEXE+1 
ona7- C5 64 1970 CMF KHL INE +1 OLC9~ 20 08 OE 2600 MOVUP JSR SETPTR OE44- 60 3230 ERTS RTS 
On49- FO 04 1980 BEQ HLOCHK OLEC- Ad 00 2610 MUA LLY #$00 OE45- AO 00 3240 GRAE LLY #$00 
OD4R- BO 3A 1990 RCS RENF OLCE- Bi 7? 2620 LDA (INDEXA) +Y 0E47- E6 D3 3250 INC XTXTPTR 
On4an- 90 08 2000 BCC RENS OLLDO- C8 2630 INY OE49- DO 02 3260 ENE GRA 
OD4F- AS 1C 2010 HLOCHK LDA *LINNUM OMD1- 91 77 2640 STA CINIIEXA) +Y OE4B- ES 14 3270 INC XTXTPTRHL 
ODSi- C5 60 2020 CMF *HLINE OnDS- 20 30 OE 2650 JSR CMPX OE4D- Bi 113 3280 GRA LUA (TXTFTR) 7Y 
ODS3- FO 02 2030 REQ RENS OLDS- DO 08 2660 ENE MUC OE4F- 60 3290 RTS 
OLS5~ BO 30 2040 BCS RENF oppe- E6 71 2670 INC XVARTAB OES0- 88 89 3300 TOKEN .BY $88 $89 
ODS7~ 20 92 OL 2050 RENS JSR FINUM OlmA- DO 02 2680 BNE MUB OE5S2~ BC A1 3310 +BY $8C $A1 
ODSA- 68 2060 FLA oppe- E6 7E 2690 INC XVARTABH OE54- C9 23 3320 NUMPATCH CMF #/# 
ODSB- 85 D4 2070 STA *TXTFTR+1 OLLE- 88 2700 MUE LEY OES6- FO 06 3330 BEQ CHECK 
ODSD- 68 2080 PLA OLDF- 60 2710 RTS OE58- 38 3340 RESTR SEC 
ODSE- 85 03 2090 STA XTXTPTR ODEO- A4 77 2720 MUC LLY XINDEXA OES9- E9 30 3350 SEC #$30 
6140- Ad 00 2100 LLY #$00 ObE2- Do 02 2730 ENE MUD OESE- 4 EO 00 3360 JMF BACK 
01162 AZ 00 2110 LUX #$00 OLE4- Cé 78 2740 DEC XINDEXAt1 OESE~ 68 3370 CHECK PLA 
OD64~ BL 01 01 2120 RENT LIA $0101+X ODE6- C6 77 2750 MUI DEC XINDEXA OESF- 48 3380 FHA 
OL67- FO OF 2130 BEQ RENK ODE8- 4C CC Ob 2760 JME MUA OE60- C9 63 3390 CHF #GVARAL 
O169- 48 2140 PHA ODEB- 20 08 OE 2770 MOVIIWN JSR SETFTR 0E62- FO 04 3400 REQ CHECKA 
ODéA- 20 CC 00 2150 JSR CHRGET ODEE- Ao 01 2780 MDA LLY #$01 OE64- Ad 23 3410 RESTRA LUA #4 
OL6I- 90 03 2160 ECC RENJ OLFO- BL 79 2790 LUA CINDEXE) Y OE66- DO FO 3420 ENE RESTR 
O6F- 20 C9 Ol 2170 JSR MOVUF ODF2~ 88 2800 LEY OE68- 68 3430 CHECKA PLA 
0D72- 468 2180 RENJ FLA ODF3- 91 79 2810 STA (INDEXE) + Y OE49- 68 3440 FLA 
OD73- 91 D3 2190 STA (TXTPTR) s¥ OLF5- 20 30 0E 2820 JSR CMPX OE6A- 48 3450 PHA 
On75- EB 2200 INX ODF8- FO 05 2830 BEQ MIC OE6E- C9 CE 3460 CMF #H»GVARAD 
0D76- DO EC 2210 BNE RENI ODFA- 20 3E OE 2840 MDE JSR BUFXA OESD- FO 05 3470 REQ CHECKE 
OD78- 20 CC 00 2220 RENK JSR CHRGET ODFD- 10 EF 2850 BNE MDA OESF- AY 63 3480 LIA #GVARAL 
OL7B- BO OF 2230 BCS RENZ ODFF- A4 7D 2860 MIC LLY xVARTAB OE71- 48 3490 FHA 
OD7D- 20 EB Of 2240 RENM JSR MOVDWN OE01- DO 02 2870 BNE MID 0E72- 0 FO 3500 BNE RESTRA 
OD80- 20 D2 00 2250 JSR CHRGOT OE03- Cé 7E 2880 DEC *VARTAB+1 0E74- 68 3510 CHECKB PLA 
on83- 90 FB 2260 ECC RENM OEOS- Cé 7D 2890 MLL DEC *VARTAE OE75- 68 3520 PLA 
ODe5- BO 05 2270 BCS RENZ 0E07- 60 2900 MDE RTS 0E76- 68 3530 FLA 
On87- 68 2280 RENF PLA OE08- AS 7 2910 SETFTR LIA *VARTAR 0E77- A9 OB 3540 LIA #HyNUM~1 
ODB8- 68 2290 FLA OEOA- 85 77 2920 STA *INDEXA 0E79- 48 3550 PHA 
OnD89- 20 D2 00 2300 JSR CHRGOT QOEOC- AS 7E 2930 LIA XVARTABH1 OE7A- AY FF 3560 LOA #NUM-1 
oDsc- C9 2€ 2310 RENZ CHF #5 OEOE- 85 78 2940 STA KINDEXAt OE7C- 48 3570 FHA 
ODBE- FO 97 2320 BEQ RENH OE10- AS 13 2950 LDA XTXTPTR OE7D- 20 CC 00 3580 JSR CHRGET 
ODP0- D0 B86 2330 BNE RENE OE12- 85 79 2960 STA XINDEXE OE80- C9 99 3590 CHF #699 
OD92- 20 19 OE 2340 FINUM JSR SETFAC OE14- AS 14 2970 LDA XTXTFTR+L OE82- DO 03 3400 ENE ERROR 
Ong9s- AS 58 2350 LIA *NWSTRT 0E16- 85 7A 2980 STA XINDEXE+1 OEB4- 4C CC 00 3610 JMF CHRGET 
OL97- 85 79 2360 STA KINIEXB OE18- 60 2990 RTS OE87- A2 02 3620 ERROR LUX #$02 
0n99- a5 59 2370 LUA XNWSTRT+1 OE19- AS SA 3000 SETFAC LDA BEGIN OE89- 40 5A C2 3630 JMF ERMESS 
OL9B- 85 7A 2380 _ STA XINDEXE+1 OE1B- 85 Bi 3010 STA XFACTO-1 3640 EN 
Qn9D- a0 05 2390 FWA LDY #805 OE1D- AS 5B 3020 LDA XBEGIN+1 

= 1EXE) » OE1F- 85 B2 3030 STA XFACTO OESO 88 89 BC AL C9 23 FO 06r13 
opai- C5 1D 2410 CHF *LINNUM#1 0E21- 60 3040 RTS Coogee oe ee oe re oe oe Se’ o4 OESa SQ EF 30 AC £0 00 6B 43700 
ODAZ- FO 15 2420 REQ FNC 0E22- AS Bi 3050 ADLISTF LDA *FACTO-1 0E60 C9 63 FO 04 AP 23 110 FOsAC 
OnAS- C9 FF 2430 CMF #$FF OE24- 18 3060 cLe 0E10 AS DS 85 77 AS D4 85 7Ar62 oF ea 68 68 48 C9 CE FO 05 APrF9 
onA7- DO 18 2440 BNE FND OE25- 65 SC 3070 ABC xeTEP CELE 60 AS eo ee Td Os Be ge 4g OE70 43 48 DO: FD€8 20 26 APs 
ODA9- 85 B2 2450 STA XFACTO OE27- 85 B1 3080 Sta xFacTo-1 2620 Be 


O£28 Bi AS B2 65 SD 85 B2 607A3 VE78 OF 48 AD FF 48 20 CC 00174 


ODAB- 85 B1 2460 STA XFACTO-1 0E29- AS B2 3090 LDA *FACTO OEB0 CP 99 DO 03 4C CC 00 A2163 
ODAD- AS Bi 2470 FNB LUA XFACTO-1 OE2B- 65 5D 3100 Aue sererti S6re Oe ee ee ee ee on ce Je1eg OE8a 02 40 Sa cayeh 
ODAF- 85 B3 2480 STA *FACTOH OE2D- 85 B2 3110 BIG SEAGIG oad oh as oy Sa ae ae Gb geese. ATOR 
ODBi- A2 90 2490 LDX #$90 OE2F- 60 3120 ARTS RTS é abe 
OLB3- 38 2500 SEC 0E30- A5 77 3130 CMPX LDA TRINDEXA, C519 BS BON02 ES (D4 BL US -60x 
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DOODLING WITH THE KTM-2 


Phillip M. Rinard 
2019 Park Ave. 
Emporia, KS 66801 


The KTM-2 keyboard terminal module provides a convenient way to add 
a video interface to a sYMe4 as well as a keyboard. Unlike some other 
computers (e.9., PET, SORCERER), it is not possible to push a single 
keyboard button and place a graphic character anywhere on the video display. 
When the keyboard is communicating with the computer you must originate 
cursor movements and character generation with computer instructions. 

You can use the local mode if you alter some input-output lines-on the 
KTM-2 edge connector, but there is a software approach that offers some 
advantages. 

The program listed below allows you to "doodle" on the video display 
by controlling the cursor's position and enabling any of the keyboard 
characters to be placed on the screen. A display can be constructed and 
altered until a pleasing final form is achieved. It could then be made 
into a subsequent Program or simply admired before destroyed. With this 
software approach, fewer button pushings are needed to make a drawing 
than would be needed in the local mode. 

When the program begins, the screen is cleared and the cursor placed 
in the upper-left corner (the HOME position). The initialization also 
assumes you will want the "reversed graphics" mode, but you can change 
this at any time if you wish. The SYM waits for your commands, The 
SUPERMON subroutine INCHR would have been used to accept a character from 


the keyboard except for the fact that it converts lower-case letters into 


upper-case letters and thus prevents half the graphic characters from being 
accepted. Fortunately, this lower—to—upper case conversion is only a small 
part of the subroutine so the solution is easy, The subroutine is copied 
out of the monitor (using the "block move" command), and then NOPs placed 


in the offending registers which are $307-$310 in the listing here. 
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After receiving your keyboard input, the SYM searches for its 
significance, It first checks for a cursor control instruction. The 


keyboard numerals "i", "2", "3" and "4" each move the cursor one space 


from its:present location; the motion is left, up, down and right, respectively. 


A "3" with the cursor on the bottom row will scroll the whole screen, 
not move the cursor, 

For larger movements, "9", "oO", "+" and "=" are available. The "9" 
key is a carriage return and now is a "HOME" instruction. The KTM-2 
provides for "relative" and "absolute" addressing of the cursor, as explained 
in the manual, and the "+" and "=" keys begin those operations. To move 
the cursor five rows and ten columns from its present location with this 
program, type "+", "05" and "iO". An "ESC" command must proceed the ee 
but with the SYM in control it is done automatically for you, The full 
byte "05" must be used, and base ten numbers must be entered; thus, the 
"10" is really a ten, not a sixteen. An example of absolute addressing 
with this program would be "=", "32", "28"; the cursor would jump to row 
32 and column 28. A preceeding "ESC" would again be supplied by the SYM, 

As the cursor moves across an already-existing character on the 
display, it erases the character. Using the carriage return or home 
command leaves the screen unchanged and thus can get it out of a "tight" 
spot without erasing part of the doodle, 

Should your keybeard entry not imply a cursor movement, the program 
next checks it against the graphic symbols available as part of the KTM-2, 
If you have typed in "n", for example, it will place the "club" suit symbol 
on the screen and the cursor moves one position to the right. If you type 
"N" you will get a thin horizontal line. It is assumed that you are still 
in the reversed graphics mode (called R,G in the manual). 

Perhaps you would like an actual "N" and not its corresponding graphic 


character. You need to be in the r,g mode. This program allows you to form 


- any combination of the G, R, g and r modes you wish by typing "5", "6", "7" 


and "8", respectively. To get the "N", therefore, type "7", "8" and then 
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"N", To return to the reversed graphics mode, type "5" and "6". In the 0300 88 81 20 41 BA 29 7F EAr86 0378 8A 18 20 04 8A AS FX 49e0C 


0308 EA EA EA EA EA EA EA EAT6é 0380 FF 4C BS 81 85 F9 20 889846 
g,R mode, you get an "N" with the black and white interchanged; with G,r you 0310 EA C9 OF DO OB AL S3 Aér1? 0388 81 20 E9 BA AP 30 Bi 03403 
0318 49 40 BL 53 Ad 18 90 E2rk2 0390 A4 AS FI AP OK 49 FF 38972 
get the graphic symbol with black and white interchanged. 0320 C9 OL 4C BE 81 6C 61 AS*80 0398 20 14 BA 20 E6 BA AO 06726 
0328 20 09 83 20 88 81 2C 53,14 O3A0 88 LO FD EA 4A CA DO F039 
Certain keys (especially punctuation marks) are not assigned any 0330 A6é 70 03 20 55 BA 4C C4sFC O3A8 AS F9 C9 OL FO 04 C9 OAr74 
0338 81 6C 64 AS 20 88 81 APCS OZ3BRO DO 03 20 32 8B 4c C4 81°B5 
grapics characters and are simply ignored in that respect. Pushing the 0340 00 85 F9 AL 02 A4 20 5417 O3B8 48 AD O02 A4 29 OF 90 O2%1A 
0348 AS 38 EY 40 70 FS 20 EG AC Q3C0 09 30 20 54 Aé BIt 02 A4, AT 
space bar does not move the cursor one position to the right. The "SHIFT 0350 BA All 02 A4 20 54 AG 38rE8 O3C8 68 60 31 34 32 33 39 301 AB 
0358 E9 40 2C 53 A6 10 06 20%6C 0300 08 09 OF OA OL 48 1B 679AS 
SPACE-BAR", however, is a valid graphic symbol and recognized as such. 0360 D4 8A 4C 87 BA AO 07 88756 O3D8 1B 72 35 36 37 38 47 S2,AS 
0368 DO FID. EA 66 FY 20 E? BAFF O3EO 67 7297E 
The numerials can not be placed on the display since they are cursor 0370 48 BS 00 468 90 D8 20 EPrES &77E 
BORER KATE 200 20 86 8B JSR ACCESS Write-enable the system RAM. 
; . ; 203 AQ 1B LDAIM Clear the screen 
This program makes use of the KTM-2 features in a manner that is easier 205 20 47 8A JSR OUTCHR with ESC E. 
i 208 A9 45 LDAIM 
to use than in the local mode. The numerals control the cursor and the 20A 20 47 8A JSR OUTCHR 
, 20D A9 47 LDAIM Begin in reversed graphics 
mode, while the alphabetical keys (and a few others) create the actual 20F 85 08 STAZ with G and R. 
A ; ; 211 AQ 52 LDAIM 
symbols. A sketch of the keyboard with the functions or symbols shown in 213 85 09 STAZ 
f P : 215 AO 00 START  LDYIM Initialize command table index. 
place of the alphanumeric characters helps the user find the desired key. 917 20 FF 02 JSR 1NCH Obtain a keyboard entry 
Pa Nana A " " i 21A 85 07 STAZ and store it. 
After the program lisiting is a table of "data" for use with the PIC 20 EF 02 Sor HAGKE: Erase the entry tron ee Sercen, 
5 A i 21F AS 07 LDAZ Compare entry with table of cursor 
= -S. dent t of 
program. It displays a 15x21 picture of a well-known U.S. president out o 221 D9 CA 03 NXTCOM CMP, AY eli 2) 
only six different characters. The top row of the table forms the top row oo ud OF oY QUTCOM 
¥ ‘ 227 CO 05 CPYIM 
a "Br bl d 
of the picture, and so on. The "1" through "6" in the table correspon 229 D0 F6 BNE. NXTCOM 
; " 22B D9 CA 03 CMP AY Is the command "HOME"? 
2 MA INE-FEED", : 
to these keybaard characters in the G,R mode \", "SHIFT LINE 22F DO OE BNE RELA dot a ciaple curso comand at elt 
" 230 AQ 1B LDAIM Use "ESC" before the "HOME" command. 
T uo oma ' a o " TAGE-RETURN' 
"SHIFT ALPHA", 4"). “SHIET SPACE-BAR", and "SHIFT CARRIAG! ET ; 232 20 47 8A JSR OUTCHR Send the "ESC" out. 
; 5 ; A 235 B9 DO 03 OQUTCOM LDA,AY Get the command's ASCII code. 
: kK > 
respectively. If you don't recognize this man immediately, step bac 238 20 47 8A ISR OUTCHR Send the command out. 
; chs ; 23B 4C 15 02 JUMP START Return for next keyboard entry. 
a few feet and squint. After finding a pleasing set of characters such 23F C9 2B RELA CMPIM is the entry "+" for relative addressing? 
; ‘ 240 DO 04 If not, try absolute addressing. 
as those suggested here, the display can be made into a program to be 242 Ad 00 rein earsaatil Ane for nat, 9 
f ; ' 244 10 06 BPL DATA Jump to a storeage command. 
Bo00'D0 Be BRAY 18 20 47 Uarké O20 BA AS'04 20 47 BA AC 15eF3 246 C9 3D ABS  CMPIM Is the entry "=" for absolute addressing? 
a ‘ pe > 5 248 DO 3F BNE NXTSYM If not, check the symbol table. 
0208 AP 45 20 47 BA AP 47 B5r3A 0288 02 C9 40 30 2F C9 8O 10%ké6 > s 
0210 08 AY 52 BS 0F AO 00 2078B 0290 2B 85 07 AP 1K 20 47 BArz2 on bs a LDAIM Tenrane ny code Be mer 
0218 FF 02 85 07 20 EF 02 ASrCE 0298 AS 08 20 47 BA AP 1B 207A4 mae ana DATA ge = ie Fg Oe araa sia iepacaan wae 
0220 07 D9 CA 03 FO OF CB COr02 O2A0 47 BA AS 09 20 47 BA ASrE OST 20 EL 02 vat acy Cinade bute (nee bes cia Sree 
0228 05 DO Fé D9 CA O03 DO OEyS1 O2A8B 07 20 47 BA AZ OO BI DérE6 ‘ 
; = 254 85 05 STAZ and store it. 
0230 AP 1B 20 47 BA BP DO 03992 O2B0 03 20 47 BA EB EO 04 fl0r76 
0238 20 47 BA 4C 15 02 CP 2ByDA O2K8 F5 4C 15 02 AZ OO BL LAr07 oe ss ee ae oe hast eee! Mb 
Pe oe a ea ot nee ee sonar 25C 20 D9 81 JSR te Get the ‘i elm Or change in column value 
0248 LO 3F AI BO 85 07 20 19,30 02C8 DO F4 4C 15 02 BD LE 03,5F O5F 20 El 02 ach TEEIeE Gade te dhin tek Mince ca Ree 
0250 81 20 E1 02 85 O05 20 EF, 4i 0200 C9 52 FO 08 C9 72 FO 04rA1 262 85 06 pee ue 1 t x 
0258 02 20 EF 02 20 LIP 81 20+FA 0208 85 08 FO 02 85 09 4C 15%0F 564 20 EF 02 STAZ an as it. 
0260 El 02 85 06 (20 EF O02 20979 O2EO 02 AZ 20 FB 38 EF O1 30r1it 267 20 EF 02 JSR BACKUP ee t oi yte 
0268 EF 02 A? iB 20 47 BA 24163 O2E8 03 EB 10 F8 8 BA 40 AR+7E ben iG 18 JSR BACKUP rom the screen. 
0270 07 30 04 AY 2B 10 02 AX,2II O2FO 08 20 47 BA AP 20 20 472A4 LDAIM Send out 
0278 3D 20 47 8A AS O05 20 47%6C O2F8 BA AY O08 20 47 BA 60 20550 =. a 
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26¢ 
26F 
271 
273 
275 
277 
279 


27C 
27E 
281 

283 
286 
289 
28B 
28D 
28F 
291 

293 
295 
298 
29A 
29D 
29F 
2A2 
2A4 
207 
2A9 
2AC 
2AE 
2B1 

284 
285 
287 
2B9 
2BC 
2BE 
2Cl 

2C3 
2C5 
2C6 
2C8 
2CA 
2cD 
200 
2D2 
2D4 
206 
208 
2DA 
2DC 
2DE 
2E1 
2E3 
2E4 
2E5 
2E7 
2E9 
2EA 
2EC 
2ED 
2EE 


8A 


03 


02 
03 


02 


EQUAL 
OUT 


NXTSYM 


NEXT] 


NIX 
NEXT2 


GRAPH 


RR 
STRT 
DECHEX 


NEXT 


QUIT 


JSR OUTCHR 
BITZ 

BMI EQUAL 
LDAIM 

BPL OUT 
LDAIM 

JSR OUTCHR 
LDAZ 

JSR OUTCHR 
LDAZ 


* JSR OUTCHR 


JMP START 
CMPIM 

BMI NIX 
CMPIM 

BPL NIX 
STAZ 

LDAIM 

JSR OUTCHR 
LDAZ 

JSR OUTCHR 
LDAIM 

JSR OUTCHR 
LDAZ 

JSR OUTCHR 
LDAZ 

JSR OUTCHR 
LDXIM 

LDA, AX 

JSR OUTCHR 
INX 

CMPIM 

BNE NEXT1 
JMP START 
LDXIM 
LDA, AX 
CMPZ 

BEQ GRAPH 
INX 

CPX,IM 

BNE NEXT2 
JMP START 
LDA, AX 
CMPIM 

BEQ RR 
CMPIM 

BEQ 

STAZ 

BEQ STRT 
STAZ 

JMP START 
LDXIM 


BPL NEXT 
CLD 
TXA 
RTS 


ESC + 

or 

ESC = 

and then 

the row 

and 

the column 
information. 


Get the next keyboard entry. 
Check that the 

keyboard entry 

is a valid ASCII 

symbol (40 to 7F). 
Temporarily store the symbol. 
Get into graphics mode 

with ESC G, ESC R 

or leave graphics mode 

with ESC g, ESC r 

or use unreversed graphics 

with ESC G, ESC r. 


Retrieve the symbol 
and send it to the screen. 
Always return to the normal 
display mode (g,r). 


Get the next keyboard entry. 


“Check that the keyboard entry 


was a G,R,g, orr 
encoded as a 5,6,7, or 8. 


If not, get another keyboard entry. 

Determine which command it is and 
place it in the proper memory 
location to be used later. 


Get another keyboard entry. 

A decimal byte in A is converted to 
‘a hex byte to complete the KTM-2 
addressing command later. 
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2EF 
2F1 
2F4 
2F6 
2F9 
2FB 
2FE 
2FF 
302 
305 
307 
309 
30B 
30D 
30F 
311 

313 
315 
318 
31A 
31D 
31E 
320 
322 
325 
328 
32B 
32E 
331 

333 
336 
339 
33C 
RKig 
341 

343 
346 
349 
34A 
34C 
34E 
351 

354 
357 
358 
35A 
35D 
35F 
362 
365 
367 
368 
36A 
36B 
36D 
370 
371 

373 
374 
376 
379 
37A 


47 8A 
47 8A 
47 8A 


88 81 
41 8A 


53 A6 
53 A6 


BACKUP 


INCH 


INRT1 


INRT2 


INJINV 
NBASOC 
OUTCHR 


INJOUV 
INTCHR 


LOOK 


TIN 


DMY1 
TLP1 


SAVE 


LDAIM 


JSR 


OUTCHR 


LDAIM 


JSR 


QUTCHR 


LDAIM 


JSR 
RTS 
JSR 
JSR 
AND 
NOP 
NOP 
NOP 
NOP 
NOP 
CMP 
BNE 
LDA 
EOR 
STA 
CLC 
BCC 
CMP 
JMP 
JUMP 
JSR 
JSR 
BIT 
BVS 
JSR 
JMP 
JMP 
JSR 
LDA 
STA 
LDA 


OUTCHR 


SAVER 
INJINV 
#$7F 


The cursor is backspaced once, 


a space is placed on the screen 
to erase the latest entry, 

and another backspace occurs, 
leaving the cursor in its origian] 
position. 


This is the SYM-1 SUPERMON subroutine 


INCHR without the portion that converts 
lower-case letters into upper-case letters. 


The lower-to-upper-case conversion 


#$0F 
INRT2 
TECHO 
#$40 
TECHO 


INCHR+3 
#$0D 
RESXZF 
(INVEC+1) 
NIBASC 
SAVER 
TECHO 
*+5 
INJOUV 
RESALL 
(OUTVEC+1) 
SAVER 

#0 

$F9 

PBDA 
TOUTFL 


#$40 
LOOK 
DLYH 
PBDA 
TOUTFL 


normally is located here. 


37D AS F9 LDA $F9 
37F 49 FF EOR #$FF 
381 4C B8 81 UMP RESXAF 
384 85 F9 TOUT STA $F9 
386 20 88 8 JSR SAVER 
389 20 E9 8A JSR DLYH 
38C A9 30 LDA #$30 
38E 8D 03 A4 STA PBDA+1 
391 AS F9 LDA $F9 
393 A2 OB LDX #$0B 
395 49 FF EOR #$FF 
397 38 SEC 

398 20 D4 8A OUTC JSR OUT 
39B 20 E6 8A JSR DLYF 
39E AO 06 LDY #$06 
3A0 88 PHAKE DEY 

3A1 DO FD BNE PHAKE 
3A3_ EA NOP 

3A4 4A LSR A 

3A5 CA DEX 

3A6 DO FO BNE OUTC 
3A8 AS F9 LDA $F9 
3AA C9 OD CMP #$0D 
3AC FO 04 BEQ GOPAD 
3AE C9 OA CMP #$0A 
3B0 DO 03 BNE LEAVE 
3B2 20 32 8B GOPAD JSR PAD 
3B5 4C C4 81 LEAVE JMP RESALL 
3B8 48 OUT PHA 

3B9 AD 02 A4 LDA PBDA 
3BC 29 OF AND #$0F 
3BE 90 02 BCC OUTONE 
3C0 09 30 ORA #$30 
3C2 2D 54 AG OUTONE AND TOUTFL 
3C5 8D 02 A STA PBDA 
308 68 PLA 

3c9 60 RTS 
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3CA 31 CURSOR ASCII 1 Move cursor left. Input commands. 
3CB 34 ASCII 4 Move cursor right. 
SCG “Sz ASCII 2 Move cursor up. 
3CD 33 ASCII 3 Move cursor down. 
SCE 39 ASCII 9 Carriage return. 
3CF 30 ASCII 0. Home position. 
300 08 COMMANDS ASCII BACK SPACE Output commands. 
3D1 09 ASCII HORIZONTAL TAB 
302 OB ASCII VERTICAL TAB 
303 OA ASCII LINE FEEL 
304 OD ASCII CARRIAGE RETURN 
3D5 48 ASCII H FOR HOME ; 
306 1B MODE ASCII ESCAPE Data to leave graphics mode. 
307 67 ASCII g 
308 1B ASCI1 ESCAPE 
3D9 72 ASCII r ' 
3DA 35 CHANGE ASCII 5 Input commands to change graphics mode. 
3DB 36 ASCII 6 
3DC 37 ASCII 7 
3DD 38 ASCII 8 
3DE 47 ASCII G Output commands to change graphics mode. 
3DF 52 ASCII R 
3E0 67 ASCII g 
SE 72 ASCII r 
TABLE OF "DATA" FOR A U.S. PRESIDENT 662314222223266 
666666666666666 G66) 1)4) 1) 5) 4) 2-2 309 42 66 
ila 666666134366666 6:6 12544221 43.6 66 
66. 2: 2 3)5)4) 1 2 3) '5) 4° 6 6 6 
666663555546666 
2:22 345 4-434 3:6 6 6 
666645325555666 
602 2 225) 2455 5e5) 2.666 
G6035 41712515 166 
6234541243 226656 
666453111144466 
6255454 53 325 7 66 
6E6B SES 42711722566 
62435: 5) 6.35) 1S) 5) a4 155015 46 
664554245335566 
63 555.5 5 5 33445 5:6 
664244234345266 
63345) 5) 5i575):5):51 11 1 6 
Bottom Row 6666666666666 66 


SOFTWARE RECOMMENDATION 

For those who wish to exrand their SYM-1’s beyond the sinsle board con- 
figuration we recommend adding some kind of terminal carability, 

Once you have full alrehanumeric I/0 capabilities you will want some kind 
of software on which to exercise your system. For the assembly lansuase 
Programmers we recommend the 2KSA (see Issues #0» and #1). If you want 
to get into higher level lansuases inexrensivelyy consider Tom Fittman’s 
TINY BASIC. It is comparable to the integer BASIC in the TRS-80 and the 
Arrle Il» ands beings in RAMr -is easily modified to meet your needs. It 
occupies only a little over 2K of RAM. The Users’ Grour has available 
an extended SYM-1 version of TINY BASIC on cassette. This version has 
such added features es SAVE, LOAD, CHARINs CHAROUT: and strins STORE and 
RECALL» as well as GOMON, BEEP, PEEK, and FOKE. It links easily with 
machine lansuase Programs and is useful for control arrlicetions. The 
cassette is sold only with a cory of Fittman’s TINY BASIC Manual. Also 
available is Pittman’s Exrerimenter’s Kits needed if wou exrect to make 
additional modifications. The combination of TK and 2KSA make for @ 
very rowerful "small syustem® at low cost. To orders see back rage, 
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EDITOR’S NOTES 

As of this dater over 122000 SYMs have been sold» and we have over S00 
subscribers, with more than a dozen mew subscribers each week. We have 
received hundreds of rases of letters, manuscripts, and source listings» 
and it is becoming almost impossible to keer ur with the corresrondence,. 
Where the writer had an immediate crisis, we tried to answer rrometlys 
the rest of the writers may find their answers in this issue, or maybe 
in the next! 


We have kert our promise on the graphics in this issue but will have to 
defer the music rrosgrams to the next issue, Until then we suggest that 
you read the article by Hal Chamberliny “A Sampling of Techniaues for 
Computer Performance of Music",s in BYTEy Vol. 2» No. 9» Sert. 19779 also 
reprinted in "The BYTE Book of Computer Music". The II/A converter de- 
scribed in that article will form the basis for the comruter music and 
oscilloscore srarhics Frosrams to arrear in Issue #3, 


FOR "SYM-FLE* SYMS 

For those of you who are Just besinning, here is a suggested way to go, 
After you have added your rower surrly (at least 1 A at 5S V regulated) 
and a cassette recorders order a cory of "The First Book of KIM"»s and 
"The SYM/KIM Arrendix to the FBOK", from Bob Peck, This should keer you 
busy for auite a while. We Flan to rublish in each issue at least one 
new rrosgram for these "SYM-rle" SYMs. You should also subscribe to one 
or more of the reriodicals we have listed and get ome or more of the 
books we have recommended. Reading and doing are essential if you wish 
to det the most out of your SYM, 


Your first hardware expansion should be the addition of the extra 3K of 
RAM, available from some of the advertisers in the periodicals. If you 
decide to go any further you will need some kind of terminals either an 
RS-232 device or a memory marred disrlay/kevboard system. Theser toor 
are advertised in the magazines. If you intend to go into word rrocess- 
ing or text editing you should get an 80 column terminal. 


Once you have alrhanumeric I/O, two goody inexpensive software additions 
are Bob Denison’s 2K Symbolic Assemblery and Tom Fittman’s 6502 TINY 
BASIC, both available from the Users’ Grour. After thesey we recommend 
RAE-1 and BAS-1y in whichever order vou rrefer. You will then have 20K 
of ROM and 4K of RAM on-board. You can add 4K more of RAM with John 
Blalock’s Memory Expansion Board (we understand that John is working on 
either a 16K or 32K dynamic memory expansion board which will mount di- 
rectly above the ROM area on the SYM). Ey this time you will need 2 
larser Power surrPly, and you no longer are a "SYM-rle" SYMmer! 


HARDWARE RECOMMENDATION 

John Blalock: whose 4K Memory Expansion Board was described in Issue #0» 
now has available for sale ROM Socket Adarterss rermitting 2-4K ROMs to 
be installed into @ single socket om the SYM-1. If you order 2 rair of 
them, sou cam Fut both BAS-1 chirs in one and both RAE-1/72 chirs in the 
others and still leave one socket free for an EPROM or another ROM. In 
order to use two of them you will have to move MON into socket U21, but 
that’s easy to do while you ere wiring 211 the other Jumpers. The rrice 
is $10,00 . U.S. and Canada please add $.50» Eurore rlease add $1.00% 
Asia and Pacific countries rlease add $1.25 for First Class/Air Mail 
Fostage and handling. The 4K Ram exransion boards are still available, 
at $5.00 plus a self-addressed stamped envelore (in the U.S.) or Flease 
add $.25 (in Canada) or $.75 (overseas). Order from him at 3054 West 
Evans Drivers Phoenix, AZ 85025. 
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CLOCK FROGRAM FOR SYM~1 WITH TERMINAL O21F- 8D OF AQ 0370 STA ACR 


Be, (i ge aR Se Oe ee Sas eee 0380 Loe #$42 
‘ 03970 LEE 
eae oaoe Coa asc 
i 245 0410 STA T1iCH 
Sreteovibley un Sas 0 O22C- A9 EC 0420 LDA #$EC 
(Slightly modified» converted to RAE format and redocumented by editor) O22E5 BHn0S 9450 STO ACOUNT 
This Program adds a new command, .C with no rarameterss to SYM. It 0230- 58 eee ; CLI 
ratches itself with a .G 0200. If you have set the time in hourss min- 
utes and seconds in 0000-0002, everytime you use the monitor Soancie: Cs wa z DISHCAY ROOTENES 
and hit returns the current time will arrear in the urrer right corner ee = 
of your KTM-2/80 screeris If you have any other tyre of terminals change REGUS ie aoe ery Ben eee 
the cursor control commands in the DISPLAY ROUTINES to match your termi- Sol ra a BA nene a Pie Aas : 
nal. You can also use this rrodram with a TTY by omitting the cursor 02 e B Ss ! ; 
control commands’ if you’ omit these commands the time will arrear on the OeS0= Za Ge S510 JOR OUTEHK 
screen of the CRT immediately following the reauest. If you wish to use O23R- AP 21 0520 LIA #$21 
this rrogram with other rrogramsy (such as RAE-1) which use the BRK in- O231- 20 47 BA 0530 JSR OUTCHR 
structions you will have to modify the interrurt service routine so that 0240- A? 66 0540 LIA #$66 
it will differentiate between BRK and IRQ by examining the B flags. If O242- 20 47 BA 0550 JSR OUTCHR 
the K flag is set» so to MON with a JSR to USRENT at 80353 otherwise, O245- AS 00 0560 LIA *HOUR * 
Process the clock interrurt, If you don’t add this modification, the 0247— 20 FA 82 0570 JSR OUTEYT 
Control C exit from RAE will mot work! You may also wish to change the O24A~ AX 20 0580 LIA #$20 x 
three pase zero addresses to avoid conflicts with BASIC: which uses O24C- 20 47 BA 0590 JSR OUTCHR 
these locations for its warm start reentry, O24F- AS O1 0600 LUA XMINUTE 
O251- 20 FA B82 0610 JSR OUTERYT x 
O254- AY 20 0620 LIA #$20 x 
ASSEMBLE LIST 0O256- 20 47 BA 0630 JSR OUTCHR x 
QO259- AS 02 0640 LDA XSECONI x 
0010 LEA $200 O25B- 20 FA 82 0650 JSR OUTBYT x 
0020 .0S O2Z5E- AY 1B 0660 LIA #€18 
0030 $24 HOUR CLOCK - ADAPTED FROM PROGRAM FOR AIM 65 pw pe BG 8A fone on cee ; 
0040 + BY MARVIN L. DEJONG ay foi : 
0050 3 AS FURLISHEL IN MICRO» 3/79 aps ona is ER sed alse SEEN 
0060 3 ALAPTION BY STEPHEN BACH Wen Lay 0700 LDA #$37 
0070 ACCESS DE $8R86 026A- 20 47 BA 0710 JSR OUTCHR 
0080 URCVEC .HE $A66D O260- AY 20 0720 LDA #$20 
0090 IRQVEC DE $A67E O26F- 20 47 BA 0730 JSR OUTCHR 
0100 ACR “DE $A00R 0272- 4C 00 80 0740 , JMP MONITR = x 
0110 TILL JHE $A006 ede 
0120 TiCH ‘DE $A005 0760 3 *C* COMMAND RECOGNITION ROUTINE 
0130 IER sDE $A00E 0770" 2 
0140 TILL? "DE $A004 0275- CD 57 AS 0780 RECOG CMF LSTCOM x 
0150 OUTCHR TE $8047 0278- FO 02 0790 BEQ OKAY x 
0160 OUTBYT -DE $82FA O27A- 38 0800 BAL SEC * 
0170 MONITR +DE $8000 027B- 60 0810 RTS * 
0180 LSTCOM DE $A657 027C- C9 43 0820 OKAY CMP #’C x 
0190 COUNT DE $0003 O27E- DO FA 0830 BNE BAD x 
0200 SECOND +E $0002 0280- EO 00 0840 CPX #$00 x 
0210 MINUTE DE $0001 0282- DO Fé 0850 ENE BAD * 
0220 HOUR +LE $0000 o284—- 18 0860 CLE * 
0230 ; O285- 4C 31 02 0870 JMP DISPLY x 
0200~ 20 86 8E 0240 START JSR ACCESS 0880 + 
0203- 78 0250 SEI 0890 3 INTERRUPT SERVICE ROUTINE 
0204- Ag 75 0260 LDA #L»RECOG x 0900 3 
0206- 81 6 AS 0270 STA URCVEC 0288- 48 0910 INTRPT PHA x 
0209- AF 02 0280 LIA #HsRECOG x Gena Eon es 0920 INC *COUNT = 
O20R- BD 6E AS 0290 STA URCVECHi Eis UY oe 09750 BNE IBONE = ¥ 
O20E- A9 88 0300 LDA #LyINTRET x o28I- F8 0740 SED x 
O210- 8D 7E Aé 0310 STA IRQVEC O28E- 18 0950 CLC x 
0213- A? 02 0320 LUA #HyINTRPT els a) Oe orae LDA’ SSECOND! & 
0215- 8D 7F A& 0330 STA IRQVECH O291- 69 O1 0970 ALC #$01 * 
0218- A? CO 0340 LIA #$CO 0293- 85 02 0980 STA *SECOND x 
021A- 8D OE AO 0350 STA IER een EY CHP #$60 * 
QO210I- AY 40 0360 LIA #$40 Q297=— 20: 22 1000 BCC NOTMIN x 
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0299- AF 00 1010 LIA #$00 x ASSEMBLE LIST 
029B- 85 02 1020 STA *SECOND x 
O29I- 18 1030 CLC 0010 3 24-HOUR CLOCK FOR SYM-1 
O29E- AS O41 1040 LIA kMINUTE * 0020 3 H, Ry LUXENBERG 
OBAO- 69 O1 1050 ALC #$01 x 0030 3 
O2A2- B85 O01 1060 STA XMINUTE * 0040 sEnter Hours, Minutes: Seconds 
O2A4- C9 60 1070 CMF #%60 * 0050 sat $00,» $01» $02 
O2PA6- 90 13 1080 BCC NOTMIN x 0060 ; 
O2A8- AY 00 1090 LIA #600 x 0070 ;Start rrosram at $0200 
O2AA- 85 O1 1100 STA XMINUTE * 0080 5 
O2ZAC- 18 1110 CLE x 0090 »BA $200 
O2ZAD- AS 00 1120 LIA *HOUR x 0100 .0S 
OBAF- 69 O1 1130 ALC #$01 0110 3 
O2K1- 85 00 1140 STA XHOUR x 0120 3 DEFINITIONS 
O2K3- C9 24 1150 CMF #$24 x 0130 3 
O2B5- 90 04 1160 BCC NOTMIN x 0140 ACCESS +DE $8886 
O2B7- AX 00 1170 LDA #$00 0150 IRQVEC +DE $A67E 
O2B9- 85 00 1180 STA XHOUR x 0160 MONITR »DE $8000 
O2BB- A? EC 1190 NOTMIN LDA #$EC x 0170 ACR -IE $A00B 
O2BD- 85 03 1200 STA ¥COUNT 0180 TILL +DE $A006 
O2BF- AD 04 AO 1210 IDONE LDA T1ILL2 x 0190 T1CH .DE $A005 
O2C2- 18 1220 cLD x 0200 IER +DE $AQ0E 
02C3- 68 1230 PLA x 0210 TiLL2 «DE $A004 
02C4- 40 1240 RTI RTI x 0220 OUTBYT +E $82FA 
1250 .EN 0230 COUNT DE $0003 
0240 SECOND -DE $0002 
0250 MINUTE +DE $0001 
LABEL FILE! C£ / = EXTERNAL J 0260 HOUR «DE $0000 
0270 3 
0280 3 INITIALIZATION 
/ACCESS=8B86 /URCVEC=A66D /IRQVEC=A67E 0290 5 
/ACR=A00B /TILL=A006 /TICH=A005 0200- 20 86 BE 0300 START JSR ACCESS 
7 TER=A00E /TALL2=A004 /OQUTCHR=8A47 0203- 78 0310 SEI 
/OUTBYT=82FA /MONITR=8000 /LSTCOM=A657 0204- AY 3A 0320 LUA #L,INTRFET 
/COUNT=0003 /SECOND=0002 /MINUTE=0001 0206- 8B 7E Aé 0330 STA IRQVEC 
/HOUR=0000 START=0200 DISFLY=0231 0209- AP 02 0340 LIA #H» INTRET 
RECOG=0275 BAD=027A OKAY=027C O20B- 8D 7F ASé 0350 STA IRQVEC#H1 
INTRPT=0288 NOTMIN=O025B IDONE=02BF O20E- AY CO 0360 LIA #$CO 
RTI=02C4 0210- 81 OE AO 0370 STA IER 
7/0000 702C5102C5 0213- A? 40 0380 LDA #$40 
> 0215- 8D OB AO 0390 STA ACR 
0218- AY 42 0400 LIA #$42 
0200 20 86 BB 78 AY 75 BD SDrC1 0268 AY 37 20 47 BA AP 20 202AF sean Bue ae S980 STA TILL 
0208 Aé AY 02 BD 6E AS AP BBrE4 0270 47 BA 4C 00 80 CI 57 Aér16 Goies ail onal) Gane fue Sees 
0210 8D 7E Aé AP O2 BL 7F AérF2 0278 FO 02 38 60 C9 43 LO FAr7é & 
0218 AF CO BD OE AO AF 40 BDr0C 0280 EO 00 DO Fé 18 4C 31 02,83 O222- AP EC 0440 LDA #$EC 
0220 OB AO AP 42 BI 06 AO AIV7E 0288 48 E6 03 LO 32 F8 18 A5/9B 0224- 85 03 0450 STA COUNT 
0228 C3 8D 05 AO AP EC 85 03790 0290 02 69 01 85 02 CP 60 90,47 0226- 58 0460 CLI 
0230 58 AY 1B 20 47 BA AP 31,83 0298 22 AY 00 85 02 18 AS 01757 0227- 4C 00 80 ee . JHP MONITR 
38 20 47 BA AP 21 20 47 BAr2F O2A0 69 O1 BS 01 C9 60 90 13513 ; 
o2e0 A? 66 20 47 BA AS 00 20rF4 O2AB AP 00 B5 O1 18 AS 00 69768 0490 3 DISPLAY ROUTINE 
0248 FA 82 AY 20 20 47 BA ASrCF 02B0 O01 85 00 C9 24 90 04 A918 0500 + 
0250 01 20 FA 82 AP 20 20 4779C O2B8 00 85 00 AY EC 85 03 ADy47 O22A- AS 00 0510 DISFLY LDA *HOUR 
0258 8A AS 02 20 FA B82 AY 1B.2D 02CO 04 AO D8 68 40,88 022C~ 20 FA 82 0520 JSR OUTBYT 
0260 20 47 BA AP BI 20 47 BArFS 508B O22F- AS O1 0530 LUA XMINUTE 
0231- 20 FA 82 0540 JSR OUTBYT 
x . t 0234- AS 02 0550 LDA xSECOND 
SURE ERRBROH (FOR AN HNESOnDED ence 0236- 20 FA 82 0560 JSR OUTBYT 
For you besinnerss who are embarrassed when asked what your SYM can do» 0239- 60 0570 ; RTS 
here is 3 simple demonstration Frosramr which converts your SYM into a OS80 3 
24-hour clock. This dives your SYM something useful to do besides Just pokes , INTERRUPT SERVICE ROUTINE 
ili As ; ; a . et } : ‘é ; 
el Allaah (Note This is a simplified version of the clock Fro 0230-48 0810 INTRPT PHA anv Casati eae Ge 
O23B- E6 03 0620 INC XCOUNT 
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SYM-FLETON’S CORNER 


Len Green 
15 Yotam Street» 
Haifay ISRAEL 


Achuza 


This article is being Frinted in very nearly its orisi- 
Green is far from beings the"symrleton" he calls himself. 
but BEEPER sounds like @ crazy cricket!) 


(Editor’s Note! 


nal forme Mr 
The Program works beautifully, 


How about the above as a resular feature for bedinners like me? For 
elementary auestions and rroblemsy and for our rudimentary rrosremsy 
which will horefully be corrected and streamlined by the veterans! 

Reins amongst those mentioned for whom rerirherels cost twice or more 
USA fricesy I have also hooked ur to @ chear ‘score for disrlay and 

used the onboard keyrad for inrut. Much better than the latter» for 
limited budgets, is @ cannibelized calculator keyboard via one of the 
6522’s»y which by strobing can sive 70 or more characters for almost zero 
cost (other than some RAM). 


Disassembler using ONLY onboard 7-sedment display and beerer,. 

If anyone wants to use the disassembler (Sumrphysisy Introductory 

Issue) and has absolutely NO rerirherals, the following routine will do 
it a11 ONBOARD, It is preferable to have at least 2K of onboard RAM» 
(although it could be maneuvered into the 1K surrlied bys the manufactur~ 
ers). 


In order to make it arrlicable to ANY amount of available RAM, I have 
deliberately located this in Pages 29 3 and 4» which leaves the fol- 
lowing free for obJect code (hex dumr) or other Furroses: all of Fase 
Our to OOEFs 311 of Fase 1 (ur to the stack)s the first 30 or so bytes 
of rage 2% everything shove rage 4. It can be relocated anywhere elser 
eed, into the uprermost 3 pases of available RAM. 


Frosram? ; 
(1) Make the following cnanses to the oridinel disassembler 


Frogram as Published in SYM-PHYSIS» Introductory Issue} 


@) Change rade 20 to 03 in all 8 Places. 
b) Change rage 21 to 04 in 2@11 15 Fleces,. 
ec) Alter the following lines as follows! 


2003- 4C SE02 20DK- 20 1A04 2106- 20 8C02 
211A to 2121-~--48/A900/20AF 02/68/60 


210E- 20 8602 


After amending» enter the whole orisinal disassembler routine (or 
Block Move) between 0300 to O4FF (instead of 2000 to 21FF). Check- 


sums (verify) from 0300 to 0421 should sive 8270» and (the tebles) from 
0422 to O4FF should sive 4742. 

(2) Add the following "new" routinei- 
0240 20 86 BSE AP O1 85 F2 APrFR O2A8 02 20 AF 02 68 AA 40 Bllx8S 
0248 OB 20 7D 02 AY 1E BI BOrAg O2B0O BR 02 EE BO 02 60 20 FASC 
0250 02 A2 21 AP BF 9D 1E 02593 O2B8 82 85 F9 BA 48 AS F9 299F5 
0258 CA 10 F8 4C 00 03 AY 1Er7B 02CO FO 4A 4A 4A 4A AA BI 29290 
0260 80 66 O02 A2 05 BRE BB O2r91 0208 BC 20 AF 02 AS FP 29 OF lO 
0268 C9 BF FO DE 90 40 Aé CAr31 0200 AA BD 29 8C 20 AF O2 68225 
0270 10 F3 AP 08 20 7D 02 EEx72 O2D8 AA 60 20 23 28 29 2C 211C 
0278 66 02 4C 63 O02 BD 56 46914 O2EO 00 49 39 OF O02 00 77 7CrA2 
0280 20 SA 83 A2 04 20 72 B9rT2 O2E8 58 SE 79 71 6F 74 10 1E%53 
0288 CA 10 FA 60 20 47 BA 8570 O2FO 70 38 37 54 5C 73 67 S5S0,0C 
0290 F9 8A 48 AS FY AZ OS Dltv6? O2F8 60 78 1C 62 3E 64 6E SEriliA 
0298 DA 02 FO OA CA 10 FB AAs BB 4FDA 
O2A0 BD AS O2 4C AP O2 Bt EOrk3 sYM-FHYSIS 2-21 


Oreration: 


assembler will disassemble 
O2CS etc. 


tion 


SHIFT/ S DIBL/ 2C5/ 


Notes? 
(i) 


(ii) 


(iii) 


(iv) 


(yv) 


(vi) 


PLS. 


34 bytes) to the original routine which is only 504 bytes long, 


Enter starting addresses in 
by SAL, 
BR at locations 0266 & 0280 are 


execution. 

BF at locations 0254 & 
buffer (O21E to O23F). 
Line pause & character 
& 0273. 

Locations O20A to O2ES 
ment code eauivalents-. 
Locations O2E46 to O2FF 
alrehabet (even thoush & 
routine!!),. 


02469 is an 


timing can 


letters are 


"everyday" 


‘blanks’ 


unused in 


formy 


‘end sensor’ 


~/ FO/CR.+++GO/ 240/ CRs « « 
itself ONBOARD starting from 


are ASCII’s for 6 symbols 


and the dis- 
(any say) 


loca- 


vizi~ SAH followed 
and altered during 
for the line 
be adjusted at locations 0248 
& their ses- 


are the 26 segment codes for the full 
this rarticular 


The above rrosram adds another 192 bytes (rlus a line buffer of 


I am 


sure that clever rrogramming could cut this to half or lessresrecially 


if duplication of ASCII & Hex tables in the oridinels 


tables in the above can be eliminated. 


0232- 
023F- 
0242- 
0243- 
0244- 
0246- 
0248- 
024A- 
024C- 
O24E- 
0250- 
0252- 
0253- 
0255- 
0257- 
0259- 
O25B- 
O25D- 
025F- 
O261- 
0262- 
0264- 
0266- 
0268- 
026A- 
026C- 
O26E- 
0270- 
2727 
0274- 
0277- 
0278- 
0279- 


and sessment code 


24-Hour Clock for Unexranded SYM-1 Continued from Fase 20 


35 0630 BNE 
2A 02 0640 JSR 

0650 SED 

0660 CLC 
02 0670 LIA 
o1 0680 Alc 
02 04690 STA 
60 0700 CMP 
22 0710 BCC 
00 0720 LIA 
02 0730 STA 

0740 cLC 
o1 0750 LDA 
o1 0760 ALC 
o1 0770 STA 
60 0780 CMP 
13 0790 BCC 
00 0800 LIA 
o1 0810 STA 

0820 CLC 
00 0830 LDA 
O11 0840 ADC 
00 0850 STA 
24 0860 CMP 
04 0870 BCC 
00 0880 LUA 
00 0890 STA 
EC 0900 NOTMIN LDA 
03 09710 STA 
04 AO 0920 IDONE LDA 

09730 CLD 

0740 PLA 

0950 RTI RTI 

0960 EN 


IDONE 
DISPLY 


xSECOND 
#$01 
xSECOND 
#$60 
NOTMIN 
#$00 
*xSECOND 


xXMINUTE 
#901 
xXMINUTE 
#$60 
NOTMIN 
#$00 
xMINUTE 


XxXHOUR 
#$01 
*XHOUR 
¥$24 
NOTMIN 
#$00 
xXHOUR 
#$EC 
xCOUNT 
TALL2 


0200 
0208 
0210 
0218 
0220 
0228 
0230 
0238 
0240 
0248 
0250 
0258 
0260 
0268 
0270 
0278 


3OA9 


7Es97 
COr03 
A0ys5F 
Blly76 
4C IC 
ASs42 
FAsA0 
20718 
01925 
00730 
85764 
85 75F 
0070C 


00+BB 
18901 
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A BASIC/46502 GAME 


Carl Moserys of Eastern Software Houses was kind enough to send us 2 
"preliminary" version of the following samer which we call Moser’s 
Paddle Gamer for want of a better name. It reauires 8K of memoryy and 
consists of two rartss one in machine languages the other in BASIC. 
First load the machine lansuase portion at 1000-1089. Then load the 
BASIC portiony after answering the MEMORY SIZE? rromrt with 40946. Kefore 
you even turn the Power ons howeverr connect 3 Jumper from Jumper rFoint 
CC om the SYM-1 to conmection roint F om the AA connector. Foint CC is 
the connection to PBZ @ $A402r and AA-P is CA1l om VIA #3, FEZ is the 
CRT IN line and CAL is used to generate an interrurt. We Fublish this 
dame not only because it is fun in itself, but because it illustrates 

so many features of the SYM/KTM-2 combination (it can be used with other 
terminals by modifying the cursor control and graphics instructions in 


the BASIC wortion of the rrogram, It illustrates one of the many uses 
ot the VIAy it illustrates memory marring of the SYM to the KTM» and it 
shows how fast resronse can be Provided in a BASIC rrosgram. Flease note 


that the BASIC rrodram is still in very roush form. Its resronse should 
be spreded up by rerlacing all constants such as Or ly -1» 61% 27% 327 
92» etc.» with variables which have been assidned those values in the 
initialization rortion of the rrosram. This avoids the need for re- 
converting these constants to floating form each time they ere used. 


The program starts by asking "How many targets?" After a 20 second 
delay the reauested number of tarsets arrear randomly rositioned on the 
screen and a movind sauare "ball* bounces back and forth ecross the 
screens being "reflected" at the boundaries. Hy hitting the terminal 
keys marked "\" and "/* at the right timer the "ball" is reflected at 2 
45 dedree angler andy horefully hits a target» which then is erased from 
the screens The obJective is to erase all of the tarsets with the few- 
est paddles. It should be obvious (but not necessarily immediately so!) 
how other dames involving moving raddles may be senerated. Those of you 
who are seriously interested in drarhics sames of this and related tures 
should consider writing them entirely in assembly lansuase, using the 
Grarhics Drawins Compiler described in Issue #1. To abort the samey 

use Control C. This is a *rreliminary" version onlys Carl and I are 
both aware of 2a “bus* which causes the memory marring to go astray efter 
a certain number of misses. We leave the bus for vou to find end exter- 
minate. 


Carl provided us with the obJect code only of the machine lansuase ror 

tion of the rrodram (on cassette) the version siven here in source 

form is based on a dissassembly and reassignment of symbolic labelsy and 
relocation to low memory by myself hence it is not in the elegant, well 
commented format typical of Carl’s rrosgrams. 


0010 sSOURCE CODE FOR MOSER’S PADDLE GAME 


0020 +BA $1000 
0030 »OS 

0040 ACCESS »DE $8886 
0050 NACCES +DE $8B9C 
0060 SAVER -DE $8188 
0070 TIN »DE $8A6A 
0080 TOUT +DE $8AA0 
0090 PCRVIA3 +DE $ACOC 
0100 IERVIA3 +DE $ACOE 
0110 PADVIAS +DE $ACO1 
0120 FBD6532 »DE $A402 
0130 TECHO +DE $A653 
0140 OUTVEC »DE $A663 
0150 IRQ »DE $FFFE 
0160 TEMP +DE $00F9 
0170 STORE »DE $1100 
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1000- 
1L001- 
1002- 
1005- 
1007- 
100A~- 
1L00D— 
LOOF- 
LOi2- 
1014- 
1017- 
1019- 
101C- 
LOLE- 
1021-- 
LO24-~ 
1026- 
LO29= 
LO2B- 
1LO2E- 
1030- 
1033- 
1036- 
1039~ 
103A- 
1LO3K- 
1L03C- 
1L03D- 
1040- 
1042- 
1045- 
1047- 
1049- 
104C- 
104F- 
1050- 
1051- 
1054- 
1056- 
1058- 
105B- 
105E- 
1061- 
1063- 
1066- 
1069- 
106C- 
106E- 
1071- 
1073- 
1076- 
1078- 
107B- 
107E— 
107F- 
1082- 
1083- 
1084- 
1085- 
1088- 
1089- 


AO 


8A 


0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 


BEGIN 


INT 


ONE 


THREE 


TWO 


OUT 


SEI 
FHA 
JSR 
LIA 
STA 
LIA 
ORA 
STA 
LIA 
STA 
LIA 
STA 
LIA 
STA 
LIA 
ANI 
STA 
LIA 
STA 
LDA 
STA 
JSR 
LIA 
PLA 
CLI 
RTS 
FHA 
JSR 
AND 
STA 
CMP 
REQ 
DEC 
LOA 
PLA 
RTI 
JSR 
LDA 
STA 
LDA 
JMP 
JSR 
LIA 
STA 
LDA 
LDA 
ORA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
RTS 
JSR 
PLA 
RTI 
SEI 
JSR 
cLI 
RTS 
+EN 


ACCESS 
#$00 
STORE+1 
PCRVIAZ 
#$01 
PCRVIAS 
#$82 
IERVIAS 
#Ly,INT 
IRQ 

#H» INT 
IRQ+1 
TECHO 
#$7F 
TECHO 
#L,OUT 
OUTVEC+1 
#H, OUT 
OUTVEC+2 
NACCES 
FPADVIAS 


ONE 
#$7F 
STORE 
#903 
TWO 
STORE+1 
PADVIAS 


SAVER 
#$00 
xTEMP 
PBD6532 
TIN 
ACCESS 
#$02 
IERVIA3 
PALVIAS 
TECHO 
#$80 
TECHO 
#L,TOUT 
OUTVEC+1 
#H»y TOUT 
OQUTVEC+2 
NACCES 


THREE 


TOUT 


1000 
1008 
1010 
1018 
1020 
1028 
1030 
1038 
1040 
1048 
1050 
1058 
1060 
1068 
1070 
1078 
1080 
1088 
SEB6 


86 8 
oc AC 
82 80 
FF Ag? 
Ab 29 
BL 64 
20 9C 
60 48 
00 11 
11 AD 
81 A9 
4C 6A 
80 OE 
Aé 09 
8D 44 
20 9C 
40 78 


00 
OL 
Ac 
8h 
8r 
A? 
All 
Si 
03 
ac 
85 
20 
All 
8 
Ag? 
60 
AO 


80,27 
80935 
A7708 
FF el3 
53940 
10743 
O1sFO 
10,85 
FO,r87 
6855F 
FO EF 
846528 
01753 
530E 
8A:C7 
20926 
BAYFE 
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LABEL FILE: C / = EXTERNAL J 


/ACCESS=8886 
7TIN=8A6A 
/TERVIAZ=ACOE 


/SAVER=8188 
/PCRVIAS=ACOC 
/PBD6532=A402 


/NACCES=BB9C 
/TOUT=8AA0 
/PADVIAZS=ACOL 


/TECHO=A653 /SOQUTVEC=A663 /IRQ=FFFE 
/TEMP=00F9 /STORE=1100 BEGIN=1000 
INT=103C ONE=1051 THREE=105E 
TWO=107F OUT=1084 

4/00007108A» 108A 

1000 LN=24 3REM LINES/SCREEN 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


CH=40 $REM CHARACTERS/LINE -- 80 MAX. 
GOTO 2080 

NU=LNXCH 

SP=32 

TA=160 

LR=47 

LL=61 $REM --"=" SINCE "\" IS UPFER CASE 
ME=4354 


T=0 
FRINT CHR$(27) #CHR$(69)3 

SS=0 

LE=08 

RI=09 

UP=11 

DN=10 

POKE ME+SS» SP 

IF SS>NU THEN1200 

SS=SS+1 

GOT011460 

K=0 

FOR I=1 TO J 

A=INT (NUXRNII( 1) ) 

IF PEEK(ME+A)=TA THEN1220 

POKE ME+A,TA 

GOSUER 1960: REM SET UF CRT CORD 

PRINT CHR$(27) §CHR$(71) §CHR$ (64) §CHR$ (27) FCHR$(103)¢ 
NEXT I : 

A=INT(NUKRNIVC1)) 

IF PEEK(ME+tA)=TA THEN1280 

NE=A+ME : 

GOSUB 1960 

DI=1tEC=RIZIF RNDCL)>.5 THEN DI=-1?EC=LE 
AA=USR( 40965 AB) 

REM --LOOF FOR NEXT POSITION 

IF PEEK(NE)=TA THEN1380 

IF PEEK(4353)<>0 THEN FOKE 4353, 0tAA=PEEK(4352)?GO0TO 1720 
GOT01410 

K=K+12PRINT " "#CHR$(08)3 

POKE NEySF tREM --CLEAR TARGET IN MAF 

IF K=J THEN 2010 

IF ABS(DI)=1 THEN1530 

IF DI>0 THEN1480 ; 

REM -- THE FOLLOWING PROCESSES -40 

IF PEEK(NE)=LL THEN DI=-1$EC=LE:GOTO 1800 
IF PEEK(NE)=LR THEN DI=13EC=RI:GOTO 1820 
IF NE+DI<ME THEN DI=-DI?EC=0N!GOT01340 
GOTO1640 

REM --THE FOLLWOING FROCESSES +40 

IF PEEK(NE)=LL THEN DI=1tEC=RI!GOTO 1840 
IF PEEK(NE)=LR THEN DJ=~1tEC=LE:GOTO 1860 
IF NE+DI2=ME+NU THEN DI=-DItEC=UF!GOT01340 


GOTO1640 
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IF DI>0 THEN 15970 

REM -~THE FOLLOWING FROCESSES ~-1 

IF PEEK(NE)=LL THEN D1=-CHIEC=UFSGOTO 1880 

IF PEEK(NE)=LR THEN DNI=CHSEC=DN?GOTO 1900 

IF ((NE-ME)/CH)-INT((NE-ME)/CH)=0 THEN DT=-DISEC=RISGOI01340 
GOT01640 

REM 

REM --THE FOLLOWING FROCESSES +1 

IF PEEK(NE)=LL THEN DI=CH?EC=IN+GOTO 1920 

IF PEEK(NE)=LR THEN DDI=-CHSEC=UF%GOTO 1940 

IF ((NE~ME+1)/CH)~INT((NE-ME+1)/CH)=0 THEN DI=-DItEC=LE:GOT01340 
REM --LAST RESORT DEFAULTS 

IF (NE4D1) == ME+NU THEN [IT=-CHSEC=UF 


IF (NE+DI) < ME THEN DI=CHSEC=IIN 
IF DI=1 THEN IF ((NE-ME+1)/CH)-INT(C(NE-ME+1)/CH)=0 THEN [IT=-DIEC= 


IF DI=-1 THEN IF ((NE-ME)/CH)-INT((NE-ME)/CH)=0 THEN DT=-D0SE-C=RI 
PRINT CHRS(EC)>s 

NE=NE¢+DI3REM --DO UPDATE 

GOTO01340 

IF AA=LR THEN1I750 

IF AA=LL THENI750 

GOT01410 

POKE NEy»AA $REM --ENTER IN MAF 

IF AA=LL THEN AA=92 {REM --MAKE "\" PRINTABLE 
PRINT CHRS (AA) #CHRS(8) 5 

T=T+1 

GOTO01410 

IF (NE-ME)/CH-INT( (NE-ME)/CH)=0 THEN [DI=CH2EC=DN 
GOTO1640 

IF (NE-ME+1)/CH-INT( (NE-ME+1)/CH)=0 THEN DI=CHiEC=IIN 
GOT01640 

IF (NE-ME+1)/CH-INT((NE-ME+1)/CH)=0 THEN DI=-CHiEC=UP 
GOT01640 

IF (NE-ME)/CH-INT((NE-ME)/CH)=0 THEN DI=-CH3EC=UP 
GOT01640 

IFNE+DI<ME THEN DI=13EC=RI 

GOTO01640 

IFNE4+DI>ME+NU THEN DI=13EC=RI 

GOT01640 

IF NE+DI>ME+NU THEN DI=-1;EC=LE 

GOTO1640 

IF (NE4+DI)<ME THEN DT=-1°3EC=LE 

GOTO01640 

REM --SET UF CRT COORDINATES 

X=INT(A/CH)$REM --FIND WHICH LINE 

Y=A-XXCH $REM --FINID CHAR. FOSITION 

PRINT CHR$(27) $CHR$(461) sCHRS$(X+32) #CHRS(Y4+32) 5 
RETURN 

PRINT CHR$(27)sCHR$(69)53REM --HOME ANDI CLEAR 
FOR I=1 TO SO:NEXT3FOR I=1 TO 103FPRINT?NEXT 
PRINT"You eliminated" J"tarsets in*T*attemrts 
PRINT 

PRINT*You averased"T/J*attempts rer target" 
PRINT? PRINT 

AA=USR(4190%AK) 

INPUT "How many targets? "#J 

J=ABSCINT(J)) 

IF J<i THEN 2120 

K=03T=0:3G0T01030 


PRINT "Thank vou. Goodbye for now." ?END 
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SHOFPING LIST GF ITEMS AVAILABLE FROM SYM-1 USER’S GROUF 

All prices diven below are now obsolete, Please use rFrices 

on the most recent issued’ "Shorring List". 

EXTENDED TINY BASIC FOR SYM-1 (INCLUDES TOM FPITTMAN’S TE MANUAL» TOM 
FITTMAN’S TR EXFERIMENTER’S KIT» HEX DUMP WITH CHECKSUMS» 


AND CASSETTE ORJECT DUMF) 
$20 IN US FUNDS - AIR MAIL POSTFAID ANYWHERE IN THE WORLI, 


6502 ASSEMBLY LANGUAGE FROGRAMMING (BY LANCE A. LEVENTHAL» 
FUBLISHED BY OSBORNE /MCGRAW-HILL) 
LIST PRICE $12.50» DISCOUNTED TO SUBSCRIBERS 
$11.25 IN US FUNDS - SURFACE MAIL ANYWHERE IN THE WORLD. 
FOR AIR MAIL EUROPEAN COUNTRIES PLEASE ADD $3.00 
FOR AIR MAIL ASTA/FACIFIC FLEASE ADD $4.00 


THREE SYM-1 BASIC ENHANCEMENTS BY JACK BROWN (FULLY DOCUMENTED 
AND COMMENTED SOURCE CODE LISTINGS) 


ULTRA-RENUMBER -.- - = - = - - - =~ = — -22 PAGES» $6.60 
SUPER TCP WITH FULL CURSOR CONTROL - ~- -14 PAGES? $4.20 
"NAMED" CASSETTE SAVE AND LOAD - - - - — 22 FAGES, $6.60 


PRICE AS LISTEDs AIR MAIL FOSTPAIDL ANYWHERE IN THE WORLD 


RAE NOTES (UPDATING SERVICEs THREE MAILINGS PLANNED) 
PRICE $7.50 US FUNDS, AIR MAIL POSTPAID ANYWHERE IN THE WORLD! 


SEE ISSUE #1 FOR PRICES ON THE FOLLOWING: 
2K SYMBOLIC ASSEMBLER (BY ROBERT DENISON) 
SYNERTEK TECHNICAL NOTES 
SUPERMON VERSION 2 (MON 1.1) 
RAE-1/2 
SCHEMATIC DIAGRAM OF SYM~-1 


MISCELLANEOUS ITEMS 


William Ausur, 34A Mindi Cts, Erier FA 16510» wants to contact SYMmers 
in his area for information exchande. Thanks to Jeff Holtzman for cas— 
settes and listings of MON extensions, including STRING FIND, and ASCII 
VERIFY: which will arrear in Issue #3. Raymond L. Reomer 1535 Starlins 
Dre» Florissant» MO 63031» would like to hear from anyone who has in~ 
terfaced SYM to the Motorola MC46847 or the Atari Video Computer Game, 
F. L. Winters VK2BLFy in Australia, wants to hear from SYMmers on 20 
Meters. Harry Tenth Rirthday to Michael Blaszezak, our younsest sub- 
seribers hore you find the Technical Notes and Schematic [iesram your 
Parents dave you helrful. We look forward to having you submit an ar- 
ticle for publication, Thanks to Jan Skovy who submitted a KIM HYPER- 
TAPE LOAD rrodramy commented in Danish. Thanks to all others who sub~ 
mitted material which could not be rublished at this timers as SYMmers 
write asking avestions which your material could answer we will send @ 
cory on to them. 


PAGE O AND 1 ASSIGNMENTS 


Those of you who are using RAE» BAS, and MON tosether know there ere 
some potential pase 0 problems. BAS uses 0000-00E8? MON uses OOF8-OOFFS 
RAE uses OOB6~-O00F7 (also 0000-005 if you use USR or “Y). Obviously it 
is difficult for RAE and BAS to call each other excert at cold starts» 
unless the calling watches rreserve the overlarring rortion of Pade 0, 
Although none of frase 0 seems to be available for user Frogramsy, there 
are many locations used only as “scratchrad’s or whose intended use is 
replaceable. For examples! OOF8 is used only for cassette orerations?s 
0000-0002 is always available if you use .G C27E as your warm start to 
BASIC instead of .G 0. We’ll list more such "free" locations next time, 
BAS and RAE also conflict in pase 1 ur through 010A» and RAE uses ur 
through 0184 (and O18F-O1DE). Fordet about rage 1y if you use RAE! 
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